home *** CD-ROM | disk | FTP | other *** search
/ Packard Bell - Internet on a CD / internet on a cd.cdr / Internet / sites / Clementine_NASA / clemdsrc.hqx / pathname.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-24  |  889 b   |  44 lines
  1. /**********************************
  2. * pathname subroutine - Adapted from MPW toolkit C examples
  3. *
  4. * subroutine description
  5. *
  6. * argument description
  7. *
  8. ***********************************/
  9.  
  10. /********************
  11. * Standard C includes 
  12. *********************/
  13. #include <stdio.h>
  14. #include <stdlib.h>
  15. #include <string.h>
  16.  
  17. /***************************
  18. * Macintosh toolbox includes 
  19. ****************************/
  20. #include <Packages.h>
  21.  
  22. void pathname (char *filenam,int vRefNum,long dirID)
  23. {
  24.   DirInfo  di;
  25.   char  dname[32];
  26.   Boolean  flag = 0;
  27.    
  28.   di.ioNamePtr = (StringPtr) &dname;
  29.   di.ioVRefNum = vRefNum;
  30.   di.ioFDirIndex = -1;
  31.   di.ioDrDirID = dirID;
  32.    
  33.   if (PBGetCatInfo((CInfoPBPtr) &di,flag))
  34.     return;
  35.       
  36.   if (dirID != 2) {
  37.     pathname(filenam,vRefNum,di.ioDrParID);
  38.     if (filenam == NULL)
  39.       return;
  40.   }
  41.          
  42.   strcat(filenam,p2cstr((StringPtr) dname));
  43.   strcat(filenam,":");
  44. }